Dit voorbeeld maakt gebruik van de functie MIRR om de gewijzigde interne rentabiliteit te geven voor een reeks cash flows in de matrix Values()
. LoanAPR
vertegenwoordigt de rente over de financiering en InvAPR
vertegenwoordigt de rente die wordt ontvangen over herinvestering.
Dim LoanAPR, InvAPR, Fmt, RetRate, Msg
Static Values(5) As Double ' Stelt een matrix samen.
LoanAPR = .1 ' Rente over financiering.
InvAPR = .12 ' Herinvesteringsrente.
Fmt = "#0,00" ' Definieer valutanotatie.
Values(0) = -70000 ' Opstartkosten van bedrijf.
' Positieve cash flows die inkomsten voor vier opeenvolgende jaren uitdrukken.
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
RetRate = MIRR(Values(), LoanAPR, InvAPR) ' Bereken interne rentabiliteit.
Msg = "De gewijzigde interne rentabiliteit voor deze cash flows is"
Msg = Msg & Format(Abs(RetRate) * 100, Fmt) & "%."
MsgBox Msg ' Geef interne rentabiliteit
' weer.